`venus` <-
function (jday=jd()) 
{
        planet(jday,
	  name="Venus",
	  inner=TRUE,
        tp = 0.615211,
        ep = 88.455855,
        oo = 131.430236,
        e = 0.006778,
        a = 0.723332,
        i = 3.394535,
        om = 76.589820,
	  th = 16.92,
	  mag = -4.40);


}

